UC知道求教>VB>解决这个问题!谢谢哪位高手来帮帮忙!!
来源：百度知道 编辑：UC知道 时间：2024/05/28 10:49:18
求教用VB编写代码:
在excel表1.2中各有50行:
表1: A列 B列 C列 D列 E列 表2:A列 B列 C列 D列 E列
1 2 3 X1 X2 1 2 3 50 60
. . . . . . . . . .
查找如果表1中的A列 B列 C列分别等于表2中的A列 B列 C列,那么将表2中的D列 E列 的数据分别复制到表1中的D列 E列中.
谢谢哪位高手来帮帮忙!!
要在excel中实现!!!!
在excel表1.2中各有50行:
表1: A列 B列 C列 D列 E列 表2:A列 B列 C列 D列 E列
1 2 3 X1 X2 1 2 3 50 60
. . . . . . . . . .
查找如果表1中的A列 B列 C列分别等于表2中的A列 B列 C列,那么将表2中的D列 E列 的数据分别复制到表1中的D列 E列中.
谢谢哪位高手来帮帮忙!!
要在excel中实现!!!!
你是需要用VB编程还是在EXCEL表格裏实现编程？
VBA代码如下:
在EXCEL 中创建一个新的宏,然后粘贴下面代码:
Dim I As Integer
For I = 1 To 10000 '假设数据有10000行
DoEvents
If Sheet1.Cells(I, 1) = Sheet2.Cells(I, 1) _
And Sheet1.Cells(I, 2) = Sheet2.Cells(I, 2) _
And Sheet1.Cells(I, 3) = Sheet2.Cells(I, 3) Then
Sheet1.Cells(I, 4) = Sheet2.Cells(I, 4)
Sheet1.Cells(I, 5) = Sheet2.Cells(I, 5)
End If
Next
然后执行被创建的宏即可.
那是"VBA"